home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 010 / games.arc / GRAPH09A.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1980-01-01  |  640 b   |  17 lines
  1. 10  '***********************************************
  2. 20  '**      GRAPH09A   -   FAMILY OF SINES       **
  3. 30  '**                                           **
  4. 40  '**  VERSION 1.1                14 JULY 1982  **
  5. 50  '***********************************************
  6. 60  CLS : SCREEN 2 : KEY OFF
  7. 70  LINE (628,199)-(1,199)
  8. 80  FOR X = 0.04 TO 3.14159 STEP 0.04
  9. 85  Z = SIN(X) * 199
  10. 90  LINE (1,199)-(1,199)
  11. 100  FOR XAXIS = 1 TO 628 STEP 1
  12. 110  NEWAXIS = XAXIS * 0.01
  13. 120  SINVAL = ABS(SIN(NEWAXIS)) * -Z + 199
  14. 130  PSET (XAXIS,SINVAL)
  15. 140  NEXT XAXIS,X
  16. 150  GOTO 150
  17.